home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / phantomGallery.cpt / PhantomGallery / background_2624.txt < prev    next >
Text File  |  1989-09-13  |  2KB  |  80 lines
  1. -- background: 2624 from stack: in
  2. -- bmap block id: 3158
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: mainBG
  6. ----- HyperTalk script -----
  7. master
  8.  
  9.  
  10.  
  11. -- part 24 (button)
  12. -- low flags: 00
  13. -- high flags: 2004
  14. -- rect: left=84 top=301 right=331 bottom=118
  15. -- title width / last selected line: 0
  16. -- icon id / first selected line: 10986 / 10986
  17. -- text alignment: 1
  18. -- font id: 0
  19. -- text size: 12
  20. -- style flags: 0
  21. -- line height: 16
  22. -- part name: SaveToPhG
  23. ----- HyperTalk script -----
  24. on mouseDown
  25.   global picName
  26.   set hilite of me to true
  27.   ask "Please name this picture for phantomGallery." with "Image" & (the ticks)
  28.   if it = empty then
  29.     set the hilite of me to false
  30.     exit mouseDown
  31.   end if
  32.   put it into picName
  33.   set cursor to 4
  34.   checkError hyperScan("CopyCard")
  35.   lock screen
  36.   push cd
  37.   go last
  38.   doMenu "Paste Card"
  39.   choose select tool
  40.   type "A" with commandKey
  41.   type "C" with commandKey
  42.   push cd
  43.   set lockMessages to true
  44.   go stack "phantomGallery"
  45.   type "V" with commandKey
  46.   doMenu "Copy Card"
  47.   type "A" with commandKey
  48.   doMenu "Clear Picture"
  49.   go prev
  50.   doMenu "Paste Card"
  51.   repeat with cycle = 1 to 4
  52.     set the lockText of cd fld cycle to false
  53.   end repeat
  54.   set the cantDelete of this cd to false
  55.   set name of this cd to picName
  56.   put picName into cd fld 1
  57.   pop cd
  58.   set lockMessages to false
  59.   doMenu "Copy Card"
  60.   pop cd
  61.   choose browse tool
  62.   unlock screen
  63.   set hilite of me to false
  64. end mouseDown
  65.  
  66.  
  67.  
  68. -- part 25 (button)
  69. -- low flags: 00
  70. -- high flags: 0001
  71. -- rect: left=80 top=296 right=340 bottom=124
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: Home
  80.